library(mlr3verse)
library(readxl)   #读取EXCEL文件

mydata = read_excel(paste(getwd(),
                          "data",
                          "aaaalldata.xlsx",
                          sep = "/"),
                    col_types=c("numeric"))

task_mydata = as_task_regr(mydata,clone=TRUE,target="diagnosis",id="mydata")
task_mydata

# plot = autoplot(task_mydata, type = "pßairs")
# plot

flt_gain = flt("information_gain")
flt_gain$calculate(task_mydata)
as.data.table(flt_gain)

flt_importance = flt("importance")
flt_importance$calculate(task_mydata)
as.data.table(flt_importance)